home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / comm / fulldoor.zip / FULLDOOR.ASP < prev    next >
Text File  |  1991-06-29  |  6KB  |  182 lines
  1. ;***********************************************************************
  2. ;*                                                                     *
  3. ;* FULLDOOR.ASP (C) 1991 DATASTORM TECHNOLOGIES, INC.                  *
  4. ;*                                                                     *
  5. ;* An ASPECT script for providing the shipment of the ALT-Function     *
  6. ;* keys when using a DOORWAY and the IBM PC emulation.                 *
  7. ;*                                                                     *
  8. ;***********************************************************************
  9.  
  10. proc main
  11. integer current_key
  12.  
  13.    set keys on                   ; Script will handle everything from keyboard
  14.    while forever                 ; Until script exits
  15.       if hitkey                  ; if a key is in the buffer
  16.          keyget current_key      ;  . . .  read it
  17.          switch current_key
  18.             case 0X6800          ; ALT-F1
  19.               computc 0
  20.               computc 0x68
  21.             endcase
  22.             case 0X6900          ; ALT-F2
  23.               computc 0
  24.               computc 0X69
  25.             endcase
  26.             case 0x6A00          ; ALT-F3
  27.               computc 0
  28.               computc 0x6A
  29.             endcase
  30.             case 0X6B00          ; ALT-F4
  31.               computc 0
  32.               computc 0x6B
  33.             endcase
  34.             case 0X6C00          ; ALT-F5
  35.               computc 0
  36.               computc 0x6C
  37.             endcase
  38.             case 0X6D00          ; ALT-F6
  39.               computc 0
  40.               computc 0x6D
  41.             endcase
  42.             case 0X6E00          ; ALT-F7
  43.               computc 0
  44.               computc 0x6E
  45.             endcase
  46.             case 0X6F00          ; ALT-F8
  47.               computc 0
  48.               computc 0x6F
  49.             endcase
  50.             case 0X7000          ; ALT-F9
  51.               computc 0
  52.               computc 0x70
  53.             endcase
  54.             case 0x7100          ; ALT-F10
  55.               computc 0
  56.               computc 0x71
  57.             endcase
  58.             case 0X8B00          ; ALT-F11
  59.               computc 0
  60.               computc 0x8B
  61.             endcase
  62.             case 0X8C00          ; ALT-F12
  63.               computc 0
  64.               computc 0x8C
  65.             endcase
  66.             case 0X1E00          ; ALT-A
  67.               computc 0
  68.               computc 0x1E
  69.             endcase
  70.             case 0X3000          ; ALT-B
  71.               computc 0
  72.               computc 0x30
  73.             endcase
  74.             case 0X2E00          ; ALT-C
  75.               computc 0
  76.               computc 0x2E
  77.             endcase
  78.             case 0X2000          ; ALT-D
  79.               computc 0
  80.               computc 0x20
  81.             endcase
  82.             case 0X1200          ; ALT-E
  83.               computc 0
  84.               computc 0x12
  85.             endcase
  86.             case 0X2100          ; ALT-F
  87.               computc 0
  88.               computc 0x21
  89.             endcase
  90.             case 0x2200          ; ALT-G
  91.               computc 0
  92.               computc 0x22
  93.             endcase
  94.             case 0X2300          ; ALT-H
  95.               computc 0
  96.               computc 0x23
  97.             endcase
  98.             case 0X1700          ; ALT-I
  99.               computc 0
  100.               computc 0x17
  101.             endcase
  102.             case 0X2400          ; ALT-J
  103.               computc 0
  104.               computc 0x24
  105.             endcase
  106.             case 0X2500          ; ALT-K
  107.               computc 0
  108.               computc 0x25
  109.             endcase
  110.             case 0x2600          ; ALT-L
  111.               computc 0
  112.               computc 0x26
  113.             endcase
  114.             case 0x3200          ; ALT-M
  115.               computc 0
  116.               computc 0x32
  117.             endcase
  118.             case 0X3100          ; ALT-N
  119.               computc 0
  120.               computc 0x31
  121.             endcase
  122.             case 0x1800          ; ALT-O
  123.               computc 0
  124.               computc 0x18
  125.             endcase
  126.             case 0X1900          ; ALT-P
  127.               computc 0
  128.               computc 0x19
  129.             endcase
  130.             case 0X1000          ; ALT-Q
  131.               computc 0
  132.               computc 0x10
  133.             endcase
  134.             case 0X1300          ; ALT-R
  135.               computc 0
  136.               computc 0X13
  137.             endcase
  138.             case 0X1F00          ; ALT-S
  139.               computc 0
  140.               computc 0x1F
  141.             endcase
  142.             case 0X1400          ; ALT-T
  143.               computc 0
  144.               computc 0x14
  145.             endcase
  146.             case 0X1600          ; ALT-U
  147.               computc 0
  148.               computc 0x16
  149.             endcase
  150.             case 0X2F00          ; ALT-V
  151.               computc 0
  152.               computc 0x2F
  153.             endcase
  154.             case 0X1100          ; ALT-W
  155.               computc 0
  156.               computc 0x11
  157.             endcase
  158.             case 0X2D00         ; ALT-X
  159.               computc 0
  160.               computc 0x2D
  161.             endcase
  162.             case 0X1500         ; ALT-Y
  163.               computc 0
  164.               computc 0x15
  165.             endcase
  166.             case 0x2C00         ; ALT-Z
  167.               computc 0
  168.               computc 0x2C
  169.             endcase
  170.             case 27              ; ESCAPE.  You may want to allow an exit here
  171.                exit
  172.             endcase
  173.             default
  174.                termkey current_key  ; send the key, it's not an ALT-key
  175.             endcase
  176.          endswitch
  177.       endif
  178.    endwhile
  179. endproc
  180.  
  181.  
  182.